home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs12.d81 / qwkiefre.sfx / src.boot 3.1 < prev    next >
Text File  |  1995-11-20  |  1KB  |  113 lines
  1. TAGS =$CD00
  2. OPEN = $FFC0
  3. SETNAM = $FFBD
  4. SETLFS = $FFBA
  5. CHKIN = $FFC6   ;X
  6. CLRCHN = $FFCC
  7. CHRIN = $FFCF
  8. CLALL = $FFE7
  9. CLOSE = $FFC3
  10. CHKOUT = $FFC9
  11. GETIN = $FFE4  
  12. FROM =251
  13. TO =253
  14. DEST =155
  15.  
  16. .DVO 9
  17. .ORG 2064
  18. .OBJ "0:B"
  19.  
  20. LDY #0:STY 53280:STY 53281
  21. STY 646
  22.  
  23. LDA #23:STA 53272
  24.  
  25. JSR INPRINT
  26.  
  27. .BYT 147,5,13,13
  28. .ASC "╠OADING ╤╫╦IE V3.1"
  29. .BYT 13
  30. .ASC "        "
  31. .BYT 163,163,163,163,163,32,163,163,163
  32. .BYT 163,13,0
  33.  
  34. LDA <LOADCODE:STA FROM
  35. LDA >LOADCODE:STA FROM+1
  36.  
  37. LDA <LOADCODEEND:STA TO
  38. LDA >LOADCODEEND:STA TO+1
  39.  
  40. LDA <STARTLOAD:STA DEST
  41. LDA >STARTLOAD:STA DEST+1
  42.  
  43. .MOVE FROM,TO,DEST
  44.  
  45. LDA >TAGS:STA 252
  46. LDA <TAGS:STA 251
  47.  
  48. TAY:LDX #02
  49.  
  50. - DEY:STA (251),Y:BNE -
  51. INC 252:DEX:BNE -
  52.  
  53. JMP STARTLOAD
  54.  
  55. INPRINT =*
  56. STA TEMP
  57. PLA:STA ARG
  58. PLA:STA ARG+1
  59. INC ARG:BNE +
  60. INC ARG+1
  61.  
  62. / LDA $FFFF:ARG =*-2
  63. BEQ +
  64. JSR $FFD2
  65. INC ARG:BNE -
  66. INC ARG+1:BNE -
  67.  
  68. + LDA ARG+1:PHA:LDA ARG:PHA
  69. LDA TEMP:RTS
  70.  
  71. TEMP .BYT 0
  72.  
  73. LOADCODE =*
  74. .OFF $C000
  75. STARTLOAD LDA 53281
  76.  
  77. LDA #3:JSR CLOSE
  78. LDA #3:LDY #00:LDX 186:JSR SETLFS
  79. LDA #8:LDX <QTAGS:LDY >QTAGS
  80. JSR SETNAM
  81. LDX <TAGS:LDY >TAGS
  82. LDA #0:JSR $FFD5
  83.  
  84. LDA #3:JSR CLOSE
  85. LDA #3:LDY #01:LDX 186:JSR SETLFS
  86. LDA #12:LDX <QFONT:LDY >QFONT
  87. JSR SETNAM
  88. LDA #0:JSR $FFD5
  89.  
  90. LDA #3:JSR CLOSE
  91.  
  92. LDA #3:LDY #01:LDX 186:JSR SETLFS
  93. LDA #9:LDX <QWKIE:LDY >QWKIE
  94. JSR SETNAM
  95. LDA #0:JSR $FFD5
  96. LDA #3:JSR CLOSE
  97.  
  98. LDA #82:STA 631:LDA #213:STA 632
  99. LDA #13:STA 633:LDA #03:STA 198
  100. LDA #01:STA 646
  101.  
  102. RTS
  103.  
  104. QWKIE .ASC "QWKIE ?.?"
  105. QTAGS .ASC "TAGS.DEF"
  106. QFONT .ASC "QWKIE.FONT80"
  107.  
  108. .OFE
  109. LOADCODEEND =*
  110.  
  111. .DIS
  112.  
  113.